4 |
How can I fit or ensure that all elements are in the control's client area
Dim oSwimLane as P Dim var_Element as local Dim var_Element1 as local Dim var_Elements as P oSwimLane = topparent:CONTROL_ACTIVEX1.activex var_Elements = oSwimLane.Elements ' var_Elements.Add("Element A",-500,-500).BackColor = 65280 var_Element = var_Elements.Add("Element A",-500,-500) oSwimLane.TemplateDef = "dim var_Element" oSwimLane.TemplateDef = var_Element oSwimLane.Template = "var_Element.BackColor = 65280" ' var_Elements.Add("Element B",500,500).BackColor = 255 var_Element1 = var_Elements.Add("Element B",500,500) oSwimLane.TemplateDef = "dim var_Element1" oSwimLane.TemplateDef = var_Element1 oSwimLane.Template = "var_Element1.BackColor = 255" var_Elements.Add("Element C",48,24) oSwimLane.FitToClient() |
3 |
Context Menu - Microsoft Windows 8.1 - Ribbon Like
Dim oSwimLane as P Dim var_Appearance as P oSwimLane = topparent:CONTROL_ACTIVEX1.activex oSwimLane.BeginUpdate() var_Appearance = oSwimLane.VisualAppearance var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_background.ebn") var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_groupt.ebn") var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_hot.ebn") var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_select.ebn") var_Appearance.Add(17,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tab.ebn") var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_tabhot.ebn") var_Appearance.Add(30,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio0.ebn") var_Appearance.Add(31,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_radio1.ebn") var_Appearance.Add(32,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check0.ebn") var_Appearance.Add(33,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_check1.ebn") var_Appearance.Add(34,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttonu.ebn") var_Appearance.Add(35,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSFlat-Ribbon/msfr_buttond.ebn") oSwimLane.Template = "Background(99) = 16777216" // oSwimLane.Background(99) = 16777216 oSwimLane.Template = "Background(64) = 33488638" // oSwimLane.Background(64) = 33488638 oSwimLane.Template = "Background(102) = 234881024" // oSwimLane.Background(102) = 234881024 oSwimLane.Template = "Background(148) = 16777216" // oSwimLane.Background(148) = 16777216 oSwimLane.Template = "Background(149) = 16777215" // oSwimLane.Background(149) = 16777215 oSwimLane.Template = "Background(155) = 201326592" // oSwimLane.Background(155) = 201326592 oSwimLane.Template = "Background(153) = 234881024" // oSwimLane.Background(153) = 234881024 oSwimLane.Template = "Background(110) = 201326592" // oSwimLane.Background(110) = 201326592 oSwimLane.Template = "Background(112) = 587202560" // oSwimLane.Background(112) = 587202560 oSwimLane.Template = "Background(2) = 570425344" // oSwimLane.Background(2 '2 + ) = 570425344 oSwimLane.Template = "Background(3) = 587202560" // oSwimLane.Background(3 '3 + ) = 587202560 oSwimLane.Template = "Background(70) = 536870912" // oSwimLane.Background(70) = 536870912 oSwimLane.Template = "Background(71) = 553648128" // oSwimLane.Background(71) = 553648128 oSwimLane.Template = "Background(73) = 503316480" // oSwimLane.Background(73) = 503316480 oSwimLane.Template = "Background(74) = 520093696" // oSwimLane.Background(74) = 520093696 oSwimLane.EndUpdate() |
2 |
Context Menu - Microsoft Paint - Ribbon Like
Dim oSwimLane as P Dim var_Appearance as P oSwimLane = topparent:CONTROL_ACTIVEX1.activex oSwimLane.BeginUpdate() var_Appearance = oSwimLane.VisualAppearance var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_background.ebn") var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupt.ebn") var_Appearance.Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_groupo.ebn") var_Appearance.Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_grouphot.ebn") var_Appearance.Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameh.ebn") var_Appearance.Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehs.ebn") var_Appearance.Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehi.ebn") var_Appearance.Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framehe.ebn") var_Appearance.Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevs.ebn") var_Appearance.Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_framevi.ebn") var_Appearance.Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_frameve.ebn") var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_select.ebn") var_Appearance.Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_bordert.ebn") var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttond.ebn") var_Appearance.Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_buttonu.ebn") var_Appearance.Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tab.ebn") var_Appearance.Add(17,"CP:16 0 0 0 1") var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabhot.ebn") var_Appearance.Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSPaint-Ribbon/mspr_tabselhot.ebn") var_Appearance.Add(20,"CP:19 0 0 0 1") oSwimLane.Template = "Background(99) = 16777216" // oSwimLane.Background(99) = 16777216 oSwimLane.Template = "Background(101) = 9126421" // oSwimLane.Background(101) = 9126421 oSwimLane.Template = "Background(102) = 234881024" // oSwimLane.Background(102) = 234881024 oSwimLane.Template = "Background(64) = 33488638" // oSwimLane.Background(64) = 33488638 oSwimLane.Template = "Background(148) = 16777216" // oSwimLane.Background(148) = 16777216 oSwimLane.Template = "Background(149) = 16777215" // oSwimLane.Background(149) = 16777215 oSwimLane.Template = "Background(155) = 218103808" // oSwimLane.Background(155) = 218103808 oSwimLane.Template = "Background(153) = 16777216" // oSwimLane.Background(153) = 16777216 oSwimLane.Template = "Background(2) = 218103808" // oSwimLane.Background(2 '2 + ) = 218103808 oSwimLane.Template = "Background(105) = 83886080" // oSwimLane.Background(105) = 83886080 oSwimLane.Template = "Background(106) = 100663296" // oSwimLane.Background(106) = 100663296 oSwimLane.Template = "Background(107) = 117440512" // oSwimLane.Background(107) = 117440512 oSwimLane.Template = "Background(108) = 134217728" // oSwimLane.Background(108) = 134217728 oSwimLane.Template = "Background(116) = 150994944" // oSwimLane.Background(116) = 150994944 oSwimLane.Template = "Background(117) = 167772160" // oSwimLane.Background(117) = 167772160 oSwimLane.Template = "Background(118) = 184549376" // oSwimLane.Background(118) = 184549376 oSwimLane.Template = "Background(110) = 201326592" // oSwimLane.Background(110) = 201326592 oSwimLane.Template = "Background(112) = 251658240" // oSwimLane.Background(112) = 251658240 oSwimLane.EndUpdate() |
1 |
Context Menu - Microsoft Office - Ribbon Like
Dim oSwimLane as P Dim var_Appearance as P oSwimLane = topparent:CONTROL_ACTIVEX1.activex oSwimLane.BeginUpdate() var_Appearance = oSwimLane.VisualAppearance var_Appearance.Add(1,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_background.ebn") var_Appearance.Add(2,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupt.ebn") var_Appearance.Add(3,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_groupo.ebn") var_Appearance.Add(4,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_grouphot.ebn") var_Appearance.Add(5,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameh.ebn") var_Appearance.Add(6,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehs.ebn") var_Appearance.Add(7,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehi.ebn") var_Appearance.Add(8,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framehe.ebn") var_Appearance.Add(9,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevs.ebn") var_Appearance.Add(10,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_framevi.ebn") var_Appearance.Add(11,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_frameve.ebn") var_Appearance.Add(12,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_select.ebn") var_Appearance.Add(13,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_bordert.ebn") var_Appearance.Add(14,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttond.ebn") var_Appearance.Add(15,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_buttonu.ebn") var_Appearance.Add(16,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tab.ebn") var_Appearance.Add(17,"CP:16 0 0 0 1") var_Appearance.Add(18,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabhot.ebn") var_Appearance.Add(19,"C:/Program Files/Exontrol/ExSwimLane/Sample/EBN/MSOffice-Ribbon/msor_tabselhot.ebn") var_Appearance.Add(20,"CP:19 0 0 0 1") oSwimLane.Template = "Background(99) = 16777216" // oSwimLane.Background(99) = 16777216 oSwimLane.Template = "Background(101) = 9126421" // oSwimLane.Background(101) = 9126421 oSwimLane.Template = "Background(64) = 33488638" // oSwimLane.Background(64) = 33488638 oSwimLane.Template = "Background(148) = 16777216" // oSwimLane.Background(148) = 16777216 oSwimLane.Template = "Background(149) = 16777215" // oSwimLane.Background(149) = 16777215 oSwimLane.Template = "Background(155) = 218103808" // oSwimLane.Background(155) = 218103808 oSwimLane.Template = "Background(153) = 16777216" // oSwimLane.Background(153) = 16777216 oSwimLane.Template = "Background(2) = 218103808" // oSwimLane.Background(2 '2 + ) = 218103808 oSwimLane.Template = "Background(3) = 16777216" // oSwimLane.Background(3 '3 + ) = 16777216 oSwimLane.Template = "Background(105) = 83886080" // oSwimLane.Background(105) = 83886080 oSwimLane.Template = "Background(106) = 100663296" // oSwimLane.Background(106) = 100663296 oSwimLane.Template = "Background(107) = 117440512" // oSwimLane.Background(107) = 117440512 oSwimLane.Template = "Background(108) = 134217728" // oSwimLane.Background(108) = 134217728 oSwimLane.Template = "Background(116) = 150994944" // oSwimLane.Background(116) = 150994944 oSwimLane.Template = "Background(117) = 167772160" // oSwimLane.Background(117) = 167772160 oSwimLane.Template = "Background(118) = 184549376" // oSwimLane.Background(118) = 184549376 oSwimLane.Template = "Background(110) = 201326592" // oSwimLane.Background(110) = 201326592 oSwimLane.Template = "Background(102) = 234881024" // oSwimLane.Background(102) = 234881024 oSwimLane.Template = "Background(112) = 251658240" // oSwimLane.Background(112) = 251658240 oSwimLane.EndUpdate() |